home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / jsbach.bas < prev    next >
BASIC Source File  |  1988-11-09  |  1KB  |  37 lines
  1. 100 REM "Jesu, Joy of Man's Desiring" From Cantata No.147
  2. 110 REM music by J.S. Bach
  3. 120 REM program written by Phil Katz
  4. 130 REM originally uploaded to EXEC-PC RBBS
  5. 140 SCREEN 0:WIDTH 40:CLS:KEY OFF:LOCATE ,,0
  6. 150 LOCATE 11,6:PRINT CHR$(34);"Jesu, Joy of Man's Desiring";CHR$(34)
  7. 160 LOCATE 13,11:PRINT"From Cantata No.147"
  8. 170 LOCATE 15,14:PRINT"by J.S. Bach"
  9. 180 DEFSTR A-Z:DEFINT I,T
  10. 190 TEMPO=96
  11. 200 PLAY"t=TEMPO;"
  12. 210 PLAY"msmbl12"
  13. 220 MAIN="o2abo3dcceddgf#gdo2bgab"
  14. 230 D71="o2f#gadf#ao3co2ba"
  15. 240 AM1="o3cdedco2babg"
  16. 250 AM2="o2eo3dco2bagdgf#"
  17. 260 G="o2gbo3dgdo2bgbo3d"
  18. 270 D7C="o3co2af#df#ao3co2ba"
  19. 280 D72="o2def#agao3co2b"+D7C
  20. 290 PLAY"o2p12g; xMAIN; xAM1; xD71;"
  21. 300 PLAY"bg; xMAIN; xAM2; xG; mlg4p4p4ms"
  22. 310 FOR I=1 TO 2
  23. 320   PLAY"p12; xD72; bg; xMAIN; xAM2; gb; xMAIN;"
  24. 330   PLAY"xAM1; xD71; bg; xMAIN; xAM2;"
  25. 340   IF I=1 THEN PLAY"mng4p4p4ms"
  26. 350 NEXT
  27. 360 PLAY"o2gbo3dgdo2bgbo3c#ddef#ag#g#baao4co3bo4co3aecde"
  28. 370 PLAY"fo4dcdo3bg#ef#g#ao4co3bo4ceddfeeag#aeco3abo4c"
  29. 380 PLAY"fedco3bao2eag#ao3cemla4p4ms"
  30. 390 PLAY"p12cdegfgb-aao4co3bo4co3afdefegfgeco2gab-ao3co2bo3co2afdef"
  31. 400 PLAY"ecdegf#gba"
  32. 410 PLAY"bg; xMAIN; xAM1; f#; xD72; bg; xMAIN; xAM2; xG;"
  33. 420 PLAY"fdo2bgbo3deco2af#ao3cdo2bgegb; xD7C; bg; xMAIN;"
  34. 430 PLAY"xAM1; xD71; bg; xMAIN; xAM2; mlg2"
  35. 440 PLAY"mfp1"
  36. 450 LOCATE 23,1
  37.